home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Just Call Me Internet
/
Just Call Me Internet.iso
/
prog
/
atari
/
m2
/
cat3src
/
cat
/
void.d
< prev
next >
Wrap
Text File
|
1997-10-26
|
789b
|
28 lines
DEFINITION MODULE Void;
FROM SYSTEM IMPORT BYTE, WORD, LONGWORD, ADDRESS;
FROM MagicSys IMPORT lBITSET;
TYPE voidType = RECORD
CASE :CARDINAL OF
1 : b : BYTE|
2 : w : WORD|
3 : l : LONGWORD|
4 : card : CARDINAL|
5 : int : INTEGER|
6 : lcard: LONGCARD|
7 : lint : LONGINT|
8 : char : CHAR|
9 : bset : BITSET|
10: lbset: lBITSET |
11: bool : BOOLEAN; |
12: r : ARRAY [0..3] OF INTEGER|
13: a : ADDRESS;
END
END;
VAR v : voidType;
END Void.